% V20210224 - 8.6 GW_LINK$

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare text string embedding a GW_LINK$.
txt$  = "Click here to go to "
txt$ += GW_LINK$("https://www.tapatalk.com/groups/rfobasic")
txt$ += " for additional support."

% Add in a Text control.
GW_ADD_TEXT(p, txt$)

% You can also add a standalone link with GW_ADD_LINK.
GW_ADD_TEXT(p, "...or use this direct link:")
GW_ADD_LINK(p, "BASIC! oficial forum", ~
 "https://www.tapatalk.com/groups/rfobasic")

% Add a Dialog.
ARRAY.LOAD bna$[], "OK"
dlg = GW_ADD_DIALOG_MESSAGE(p, "Dialog", "Message", bna$[])

% And a standalone link to show the Dialog.
GW_ADD_TEXT(p, "You can also use a LINK control to open directly a dialog:")
GW_ADD_LINK(p, "Show dialog", GW_SHOW_DIALOG$(dlg))

% Add a Panel.
panel = GW_ADD_PANEL(p, "Hello, World!")

% And a standalone link to open the Panel.
GW_ADD_TEXT(p, "...or a panel:")
GW_ADD_LINK(p, "Open side panel", GW_SHOW_PANEL$(panel))

GW_ADD_TEXT(p, "Hope it helped!")

GW_ADD_BUTTON(p, "Exit demo", "BACK")

GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of LINK example."